5 SD$=""
6 J=56320
10 REM COLOR SELECT
20 GOSUB 10000 : REM CURRENT SETUP
22 :
30 CP=BO:DD$="[194][207][210][196][197][210][146]":OP=1
40 GOSUB 11000 : REM SELECT NEW BORDER
42 BO=CP
50 :
52 CP=BK:DD$="[194][193][195][203][199][210][207][213][206][196][146]":OP=2
60 GOSUB 11000 : REM SELECT NEW BK'GRND
62 BK=CP
70 :
72 CP=TE:DD$="[212][197][216][212][146]":OP=3
80 GOSUB 11000 : REM SELECT NEW TEXT
82 TE=CP
84 IFBK=TETHENGOSUB30000:GOTO20
90 GOSUB 12000 : REM ARE THESE OK
92 IFNOT(OK)THEN30
94 :
100 GOSUB 15000: REM CURRENT SIDE
102 SB=SI      : REM SIDE BOOTED
105 NS=2       : REM NUMBER OF SIDES
110 CS=1
120 GOSUB13000 : REM WRITE DATA TO FILE
130 CS=CS+1    : REM ON SIDE CS
140 IFCS<=NSTHEN120
150 :
160 GOSUB14000 : REM PUT SIDE SB IN
10000 REM GET CURRENT SETUP
10010 OPEN15,8,15,"I0"
10020 OPEN3,8,4,"SETUP"
10030 INPUT#3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
10040 BO=VAL(D$(1))
10042 BK=VAL(D$(2))
10044 TE=VAL(D$(3))
10046 CLOSE3:CLOSE15
10050 RETURN
10060 :
11000 REM  SELECT NEW SOMETHING...
11005 PRINT"[147]"
11010 PRINT"":POKE646,TE
11020 POKE53280,BO:POKE53281,BK
11030 AA$="[211]ELECT NEW "+DD$+" COLOR":PRINTSPC(20-LEN(AA$)/2)AA$
11032 PRINT"         BY MOVING ARROW WITH"
11040 PRINT" JOYSTICK OR CURSOR KEYS.  [212]O SELECT A"
11050 PRINT"   COLOR, PRESS [[211][208][193][195][197]] OR [198][201][210][197][194][213][212][212][207][206]."
11060 PRINT""SPC(10)"[208]RESS '_' TO EXIT."
11070 :
11080 PRINTSD$;
11090 FORX=0TO15:POKE646,X:PRINT" ";:NEXT:PRINT"[146]"
11095 POKE646,TE
11100 :
11110 PRINTSD$""SPC(CP)"^"
11120 :
11130 JY=PEEK(J):IFJY=127ANDPEEK(198)=0THEN11130
11140 GETA$
11150 IFJY=111ORA$=CHR$(32)THEN11240
11155 IFA$="_"THENGOSUB20000:GOTO11005
11160 :
11170 IFJY=123ORA$="[157]"ORA$=""THENPRINTSD$""SPC(CP)" ":CP=CP-1:GOTO11190
11180 IFJY=119ORA$=""THENPRINTSD$""SPC(CP)" ":CP=CP+1:GOTO11190
11185 GOTO11130
11190 IFCP<0THENCP=15
11195 IFCP<0THENCP=15
11200 IFCP>15THENCP=0
11210 PRINTSD$""SPC(CP)"^"
11215 IFOP=1THENBO=CP
11216 IFOP=2THENBK=CP
11217 IFOP=3THENTE=CP
11220 GOTO11010
11230 :
11240 RETURN
11250 :
12000 REM THESE OK
12005 :
12010 PRINT"[147] [193]RE THESE SETTINGS WHAT YOU WANT ([217]/[206])?"
12020 POKE198,0:WAIT198,1:GETA$
12025 IFA$<>"Y"ANDA$<>"N"THEN12020
12030 IFA$="Y"THENOK=-1
12040 IFA$="N"THENOK=0
12050 RETURN
13000 REM  WRITE DATA TO DISK
13010 PRINT"[147][144]":POKE53281,1:POKE53280,4
13020 PRINT"  [208]LEASE PLACE SIDE #"CS"OF [204][207][193][196][211][212][193][210] IN"
13025 PRINT"     THE DRIVE AND PRESS [[211][208][193][195][197]]."
13030 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN13030
13040 GOSUB15000: REM WHAT SIDE IS IT?
13050 IFSI=CSTHEN13100
13060 PRINT"   !!! [211]IDE #"CS"NOT FOUND... !!!"
13070 FORDL=1TO2000:NEXT:GOTO13000
13080 :
13100 REM  OK, WRITE DATA
13110 OPEN15,8,15,"I0"
13120 D$(1)=MID$(STR$(BO),2)
13122 D$(2)=MID$(STR$(BK),2)
13124 D$(3)=MID$(STR$(TE),2)
13130 OPEN3,8,4,"SETUP":CR$=CHR$(13)
13140 PRINT#15,"P
"CHR$(0)"
";
13150 PRINT#3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
13160 CLOSE3:CLOSE15
13170 RETURN
13180 :
13999 END
14000 REM  PUT SIDE ONE BACK IN
14010 PRINT"[147][144]":POKE53281,1:POKE53280,4
14020 PRINT"  [208]LEASE PLACE SIDE # 1 OF [204][207][193][196][211][212][193][210] IN"
14022 PRINT" YOUR DRIVE AND PRESS [211][208][193][195][197] TO RETURN"
14024 PRINT" TO [204][207][193][196][211][212][193][210]."
14030 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN14030
14040 GOSUB15000: REM WHAT SIDE IS IT?
14050 IFSI=1THEN14100
14060 PRINT"   !!! [211]IDE # 1 NOT FOUND... !!!"
14070 FORDL=1TO2000:NEXT:GOTO14000
14080 :
14100 GOTO60000 : REM CONNECT BACK
14130 :
15000 REM READ CURRENT SIDE
15010 OPEN15,8,15,"I0":CLOSE15
15020 OPEN2,8,2,"$"
15030 FORI=0TO156:GET#2,A$:NEXT
15040 GET#2,A$:SI=VAL(A$):CLOSE2
15050 RETURN
15060 :
20000 REM QUIT
20010 PRINT"[147]  [193]RE YOU SURE YOU WANT TO QUIT ([217]/[206])?"
20020 POKE198,0:WAIT198,1:GETA$
20025 IFA$<>"Y"ANDA$<>"N"THEN20020
20030 IFA$="Y"THEN60000 : REM QUIT
20040 IFA$="N"THENRETURN
20050 :
30000 REM SAME BACKGROUND AND TEXT
30010 POKE53281,1:PRINT"[147][144]   [215]HY DID YOU PICK THE SAME COLOR FOR"
30020 PRINT"    THE [194][193][195][203][199][210][207][213][206][196] AND THE [212][197][216][212]???"
30030 PRINT"          [212]RY PICKING AGAIN..."
30040 FORDL=1TO3200:NEXT:RETURN
60000 REM  RETURN TO CUSTOMIZE MENU
60010 PRINT"[147]LOAD"CHR$(34)"CUSTOM LS BOOT"CHR$(34)",8":PRINT"RUN"
60020 POKE631,13:POKE632,13:POKE198,2:END